ggplot(aes(y=coef,x=label, color=sig3), data = cor)+
	geom_point(position = position_dodge(width=.5))+
	ylim(-15,15)+
	theme_bw()+
	xlab("")+
	ylab("Percentage-point change in agreement from a one\n standard deviation increase in the predictor") + 
	geom_hline(yintercept=0, linetype="dotted") + 
	theme(panel.spacing = unit(1, "lines")) + 
	theme(panel.grid.major = element_line(colour = "white"),panel.grid.minor = element_line(colour = "white"), axis.title.x = element_text(vjust=-0.5)) +
	theme(legend.position="bottom") +
	labs(col = "Benjamini-Hochberg corrected p-value") + 
	#theme(axis.text.x = element_text(angle=90,hjust=0.95)) +
	theme(axis.title.y = element_text(hjust=1)) +
	#ggtitle("Response to collaboration discussion requests") +
	coord_flip() +
facet_grid(.~treat)
cor
ggsave("results/cor2.pdf",width=8, height=7.5)
